home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Mozilla 2.xpl < prev    next >
Text File  |  2002-09-24  |  4KB  |  91 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Mozilla"
  5. "NAME"="Miscellaneous Options"
  6. "VERSION"="1.0"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show About screen as dialog"
  9. "DESCRIPTION 1"="Option #1: When you go to Help > About in Mozilla, a new window is opened. With this enabled, it will show a tabbed dialog instead."
  10. "DESCRIPTION 2"="NOTE: This will affect all users of Mozilla on this computer."
  11. "DESCRIPTION 3"="Mozilla is free, open source web browser available from http://www.mozilla.org/ ."
  12. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Rules of programming #46346: Never write plugins with a hangover."
  16.  
  17. ' Neil's attempt at creating a Mozilla plug-in for X-Setup. As you can see, it's a little
  18. ' complicated due to the way Mozilla stores its settings (ie in a completely non-standard
  19. ' format... so much for a standards compliance, eh?), so that's why the code is slightly
  20. ' more sloppy then usual. But it works. I think.
  21. ' 
  22. ' Feel free to copy code elements for use in other Mozilla/Netscape plugins.
  23. sP="HKCU\Software\mozilla.org\Mozilla\"
  24. sV1="CurrentVersion"
  25. sV2="\Main\Install Directory"
  26.  
  27. Sub Plugin_Initialize
  28.  ' To find out where the Mozilla keys are stored, we have to go get the version number.
  29.  MozVer=RegReadValue(sP&sV1)
  30.  if IsEmpty(MozVer)=true then
  31.   Call Disable()
  32.  else
  33.  ' This tells us where Mozilla is installed, so that we can open the preferences files.
  34.   InsPath=RegReadValue(sP&MozVer&sV2)
  35.  end if
  36.  
  37.  ' Open all.js, which seems to be the main preference file.
  38.  Call TxtOpen(InsPath&"defaults\pref\all.js")
  39.  
  40.  ' Because we repeat a rather longwinded peace of code to get each setting, we use a SUB,
  41.  ' and provide it with the name of the value and what we would expect it to say if it was
  42.  ' on - for some reason Mozilla likes to put loads of spaces in, thus requiring more code.
  43.  ' It makes it easier to read, but from an X-Setup point of view, it's annoying. Grrrrrrr.
  44.  Call Build_UI("pref(""browser.show_about_as_stupid_modal_window"","," true);",1)
  45. End Sub
  46.  
  47. Sub Build_UI(Pref,Setting,Num)
  48.  i=TxtFindLine(Pref,false)
  49.  if i>0 then
  50.   s=TxtGetLine(i)
  51.   i=InStr(s,",") ' We're only interested in the stuff after the comma, so we get rid of the left hand side.
  52.   s=Right(s,len(s)-i)
  53.   if s=Setting then ' If what we've retrieved is the same as what we were expecting, then we set the UI elephant to true.
  54.    Call SetUIElement(Num,true)
  55.   end if
  56.  else
  57.   ' The prefs files may only be written on first launch or be corrupted, so if the item
  58.   ' can't be found, we let the user know.
  59.   Call MsgWarning("X-Setup encountered an error while trying to retrieve the settings. This may be because you have not run Mozilla yet, or the preferences are corrupted. Please run Mozilla, or reinstall it.")
  60.   Call Disable()
  61.  end if
  62. End Sub
  63.  
  64. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  65.  ' Yup, we need this again... Though since the plugin would already be disabled if it
  66.  ' didn't exist, we can skip a bit.
  67.  MozVer=RegReadValue(sP&sV1)
  68.  InsPath=RegReadValue(sP&MozVer&sV2)
  69.  
  70.  Call DoStuff("pref(""browser.show_about_as_stupid_modal_window"","," true);","  false);",1)
  71.  
  72.  
  73.  Call TxtSave()
  74. End Sub
  75.  
  76. Sub DoStuff(Pref,Enabled,Disabled,Num)
  77.  ' Amazingly, the Apply SUB is smaller than the Initilise SUB. Is this a first in X-Setup?
  78.  s=GetUIElement(Num)
  79.  if s=true then
  80.   i=TxtFindLine(Pref,false)
  81.   Call TxtSetLine(i,Pref&Enabled)
  82.  else
  83.   i=TxtFindLine(Pref,false)
  84.   Call TxtSetLine(i,Pref&Disabled)
  85.  end if
  86. End Sub
  87.  
  88. Sub Plugin_Terminate
  89.  Call TxtClose()
  90. End Sub
  91.